replace_VS_VS_CH_target Function

private elemental function replace_VS_VS_CH_target(string, target, substring, every, back) result(rep_string)

Replace part of a varying string with a character substring, at a location matching a varying- string target

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
type(varying_string), intent(in) :: target
character(len=*), intent(in) :: substring
logical, intent(in), optional :: every
logical, intent(in), optional :: back

Return Value type(varying_string)


Source Code

  elemental function replace_VS_VS_CH_target (string, target, substring, every, back) result (rep_string)

    type(varying_string), intent(in) :: string
    type(varying_string), intent(in) :: target
    character(LEN=*), intent(in)     :: substring
    logical, intent(in), optional    :: every
    logical, intent(in), optional    :: back
    type(varying_string)             :: rep_string


    rep_string = replace(char(string), char(target), substring, every, back)

! Finish

    return

  end function replace_VS_VS_CH_target